library("rtqdist")

filename1 = "trees/tree1.new"
filename2 = "trees/tree2.new"

t = tripletDistance(filename1, filename2)
q = quartetDistance(filename1, filename2)

allT = allPairsTripletDistance("trees/8trees.new") 
allQ = allPairsQuartetDistance("trees/8trees.new")

pT = pairsTripletDistance("trees/pairs1.new", "trees/pairs2.new")
pQ = pairsQuartetDistance("trees/pairs1.new", "trees/pairs2.new")
